(tool-bar-setup): Don't suppress write-file

and save-buffer if buffer-file-name non-nil.  From rms.

diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 64fcf09e64437e2e29645ac6ad6d9dba2a6719e2..e7534c9e4a6658615371c9f842b5d0937df8a98d 100644 (file)
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -175,11 +175,15 @@ function."
   (tool-bar-add-item-from-menu 'dired "open")
   (tool-bar-add-item-from-menu 'kill-this-buffer "close")
   (tool-bar-add-item-from-menu 'save-buffer "save" nil
-                              :visible '(not (eq 'special (get major-mode
-                                                               'mode-class))))
+                              :visible '(or buffer-file-name
+                                            (not (eq 'special
+                                                     (get major-mode
+                                                          'mode-class)))))
   (tool-bar-add-item-from-menu 'write-file "saveas" nil
-                              :visible '(not (eq 'special (get major-mode
-                                                               'mode-class))))
+                              :visible '(or buffer-file-name
+                                            (not (eq 'special
+                                                     (get major-mode
+                                                          'mode-class)))))
   (tool-bar-add-item-from-menu 'undo "undo" nil
                               :visible '(not (eq 'special (get major-mode
                                                                'mode-class))))